<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.2</name>
<id>-1</id>
<cardCount>30</cardCount>
<cardID>5251</cardID>
<listID>6641</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>224</width>
<height>256</height>
</cardSize>
<script>on openStackglobal prior,TheFont,FontSize,FontStyle,chosen,leftFactor,rightFactor,changein,changeout,Acc,CalcCardset cursor to busyput 0 into priorput empty into TheFontput empty into FontSizeput empty into FontStyleput 0 into chosenput 0 into leftFactorput 0 into rightFactorput 0 into changeinput 0 into changeoutput 0 into Accput 0 into CalcCardset cursor to busyget userLevelput it into priorif prior < 2 thenset userLevel to 2end ifhide msgput 1 into chosengo cd chosenput Chicago into TheFontput 12 into FontSizeput plain into FontStyleput "About Convertor…" into menuItem 1 of menu 1set the menuMsg of menuItem 1 of menu 1 to¬"send mouseUp to bkgnd button " & quote & "About" & quoteset cantAbort of this stack to trueset cursor to busylock screenset lockMessages to trueshow all cardsset cantAbort of this stack to falseend openStackon closeStackglobal priorset userLevel to priorset cursor to busyput "About Hypercard…" into menuItem 1 of menu 1set the menuMsg of menuItem 1 of menu 1 to emptyif freeSize of this stack > size of this stack / 5then doMenu "Compact Stack"end closeStackon resumeStackglobal priorset cursor to watchget userLevelput it into priorif prior < 2 thenset userLevel to 2end ifhide msgput "About Convertor…" into menuItem 1 of menu 1set the menuMsg of menuItem 1 of menu 1 to¬"send mouseUp to bkgnd button " & quote & "About" & quoteend resumeStackon suspendStackglobal priorset cursor to watchset userLevel to priorhide msgput "About Hypercard…" into menuItem 1 of menu 1set the menuMsg of menuItem 1 of menu 1 to emptyend suspendStackon GetIndexglobal chosenput the mouseV into Topput the mouseH into Leftget HPopUpMenu(cd field "Index" of card 4,chosen,Top,Left)if item 1 of it is 0 and item 2 of it is 0then exit GetIndexelse put item 2 of it into chosenvisual effect dissolvego card chosenend GetIndex</script>